ContinuousTest_timeit <- function(dfm, labeledIndicator, categoryVec, nboot = 10)
{ 
  #########################################
  #### Initialize the data
  categoryVec_labeled_factor <- as.factor(categoryVec)[labeledIndicator==1]
  categoryVec_unlabeled_factor <- as.factor(categoryVec)[labeledIndicator==0]
  unlabeled_pd <- prop.table(table( categoryVec_unlabeled_factor ))
  cat_names <- names(unlabeled_pd)
  nCat <- length(unlabeled_pd)
  
  #Storage for Classifiers Analysis 
  EnsembleList_continuous <- EnsembleMethod(train_cats = as.character(categoryVec_labeled_factor), unlabeled_pd = unlabeled_pd, 
                                            train_feat = dfm[labeledIndicator==1,], 
                                            test_feat = dfm[labeledIndicator==0,], report_times = T)

  return(EnsembleList_continuous)  
}
